home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / locale.inc < prev    next >
Text File  |  1998-06-24  |  5KB  |  217 lines
  1. pattern localePrivate1 is
  2.     push a6;
  3.     a6:=LocaleBase; jsr [a6-30];
  4.     pop a6;
  5. endp;                                                            # LOCALEPRIVATE1
  6.  
  7. pattern CloseCatalog(_catalog) is
  8.     push a6;
  9.     a0:=_catalog;
  10.     a6:=LocaleBase; jsr [a6-36];
  11.     pop a6;
  12. endp;                                                            # CLOSECATALOG
  13.  
  14. pattern CloseLocale(_locale) is
  15.     push a6;
  16.     a0:=_locale;
  17.     a6:=LocaleBase; jsr [a6-42];
  18.     pop a6;
  19. endp;                                                            # CLOSELOCALE
  20.  
  21. pattern ConvToLower(_locale,_character) is
  22.     push a6;
  23.     safe a0:=_locale; d0.l:=_character;;
  24.     a6:=LocaleBase; jsr [a6-48];
  25.     pop a6;
  26. endp;                                                            # CONVTOLOWER
  27.  
  28. pattern ConvToUpper(_locale,_character) is
  29.     push a6;
  30.     safe a0:=_locale; d0.l:=_character;;
  31.     a6:=LocaleBase; jsr [a6-54];
  32.     pop a6;
  33. endp;                                                            # CONVTOUPPER
  34.  
  35. pattern FormatDate(_locale,_fmtTemplate,_date,_putCharFunc) is
  36.     push a2\a3\a6;
  37.     safe a0:=_locale; a1:=_fmtTemplate; a2:=_date; a3:=_putCharFunc;;
  38.     a6:=LocaleBase; jsr [a6-60];
  39.     pop a2\a3\a6;
  40. endp;                                                            # FORMATDATE
  41.  
  42. pattern FormatString(_locale,_fmtTemplate,_dataStream,_putCharFunc) is
  43.     push a2\a3\a6;
  44.     safe a0:=_locale; a1:=_fmtTemplate; a2:=_dataStream; a3:=_putCharFunc;;
  45.     a6:=LocaleBase; jsr [a6-66];
  46.     pop a2\a3\a6;
  47. endp;                                                            # FORMATSTRING
  48.  
  49. pattern GetCatalogStr(_catalog,_stringNum,_defaultString) is
  50.     push a6;
  51.     safe a0:=_catalog; d0.l:=_stringNum; a1:=_defaultString;;
  52.     a6:=LocaleBase; jsr [a6-72];
  53.     pop a6;
  54. endp;                                                            # GETCATALOGSTR
  55.  
  56. pattern GetLocaleStr(_locale,_stringNum) is
  57.     push a6;
  58.     safe a0:=_locale; d0.l:=_stringNum;;
  59.     a6:=LocaleBase; jsr [a6-78];
  60.     pop a6;
  61. endp;                                                            # GETLOCALESTR
  62.  
  63. pattern IsAlNum(_locale,_character) is
  64.     push a6;
  65.     safe a0:=_locale; d0.l:=_character;;
  66.     a6:=LocaleBase; jsr [a6-84];
  67.     pop a6;
  68. endp;                                                            # ISALNUM
  69.  
  70. pattern IsAlpha(_locale,_character) is
  71.     push a6;
  72.     safe a0:=_locale; d0.l:=_character;;
  73.     a6:=LocaleBase; jsr [a6-90];
  74.     pop a6;
  75. endp;                                                            # ISALPHA
  76.  
  77. pattern IsCntrl(_locale,_character) is
  78.     push a6;
  79.     safe a0:=_locale; d0.l:=_character;;
  80.     a6:=LocaleBase; jsr [a6-96];
  81.     pop a6;
  82. endp;                                                            # ISCNTRL
  83.  
  84. pattern IsDigit(_locale,_character) is
  85.     push a6;
  86.     safe a0:=_locale; d0.l:=_character;;
  87.     a6:=LocaleBase; jsr [a6-102];
  88.     pop a6;
  89. endp;                                                            # ISDIGIT
  90.  
  91. pattern IsGraph(_locale,_character) is
  92.     push a6;
  93.     safe a0:=_locale; d0.l:=_character;;
  94.     a6:=LocaleBase; jsr [a6-108];
  95.     pop a6;
  96. endp;                                                            # ISGRAPH
  97.  
  98. pattern IsLower(_locale,_character) is
  99.     push a6;
  100.     safe a0:=_locale; d0.l:=_character;;
  101.     a6:=LocaleBase; jsr [a6-114];
  102.     pop a6;
  103. endp;                                                            # ISLOWER
  104.  
  105. pattern IsPrint(_locale,_character) is
  106.     push a6;
  107.     safe a0:=_locale; d0.l:=_character;;
  108.     a6:=LocaleBase; jsr [a6-120];
  109.     pop a6;
  110. endp;                                                            # ISPRINT
  111.  
  112. pattern IsPunct(_locale,_character) is
  113.     push a6;
  114.     safe a0:=_locale; d0.l:=_character;;
  115.     a6:=LocaleBase; jsr [a6-126];
  116.     pop a6;
  117. endp;                                                            # ISPUNCT
  118.  
  119. pattern IsSpace(_locale,_character) is
  120.     push a6;
  121.     safe a0:=_locale; d0.l:=_character;;
  122.     a6:=LocaleBase; jsr [a6-132];
  123.     pop a6;
  124. endp;                                                            # ISSPACE
  125.  
  126. pattern IsUpper(_locale,_character) is
  127.     push a6;
  128.     safe a0:=_locale; d0.l:=_character;;
  129.     a6:=LocaleBase; jsr [a6-138];
  130.     pop a6;
  131. endp;                                                            # ISUPPER
  132.  
  133. pattern IsXDigit(_locale,_character) is
  134.     push a6;
  135.     safe a0:=_locale; d0.l:=_character;;
  136.     a6:=LocaleBase; jsr [a6-144];
  137.     pop a6;
  138. endp;                                                            # ISXDIGIT
  139.  
  140. pattern OpenCatalogA(_locale,_name,_tags) is
  141.     push a2\a6;
  142.     safe a0:=_locale; a1:=_name; a2:=_tags;;
  143.     a6:=LocaleBase; jsr [a6-150];
  144.     pop a2\a6;
  145. endp;                                                            # OPENCATALOGA
  146.  
  147. pattern OpenLocale(_name) is
  148.     push a6;
  149.     a0:=_name;
  150.     a6:=LocaleBase; jsr [a6-156];
  151.     pop a6;
  152. endp;                                                            # OPENLOCALE
  153.  
  154. pattern ParseDate(_locale,_date,_fmtTemplate,_getCharFunc) is
  155.     push a2\a3\a6;
  156.     safe a0:=_locale; a1:=_date; a2:=_fmtTemplate; a3:=_getCharFunc;;
  157.     a6:=LocaleBase; jsr [a6-162];
  158.     pop a2\a3\a6;
  159. endp;                                                            # PARSEDATE
  160.  
  161. pattern localePrivate2 is
  162.     push a6;
  163.     a6:=LocaleBase; jsr [a6-168];
  164.     pop a6;
  165. endp;                                                            # LOCALEPRIVATE2
  166.  
  167. pattern StrConvert(_locale,_string,_buffer,_bufferSize,_type) is
  168.     push a2\a6;
  169.     safe a0:=_locale; a1:=_string; a2:=_buffer; d0.l:=_bufferSize; d1.l:=_type;;
  170.     a6:=LocaleBase; jsr [a6-174];
  171.     pop a2\a6;
  172. endp;                                                            # STRCONVERT
  173.  
  174. pattern StrnCmp(_locale,_string1,_string2,_length,_type) is
  175.     push a2\a6;
  176.     safe a0:=_locale; a1:=_string1; a2:=_string2; d0.l:=_length; d1.l:=_type;;
  177.     a6:=LocaleBase; jsr [a6-180];
  178.     pop a2\a6;
  179. endp;                                                            # STRNCMP
  180.  
  181. pattern localePrivate3 is
  182.     push a6;
  183.     a6:=LocaleBase; jsr [a6-186];
  184.     pop a6;
  185. endp;                                                            # LOCALEPRIVATE3
  186.  
  187. pattern localePrivate4 is
  188.     push a6;
  189.     a6:=LocaleBase; jsr [a6-192];
  190.     pop a6;
  191. endp;                                                            # LOCALEPRIVATE4
  192.  
  193. pattern localePrivate5 is
  194.     push a6;
  195.     a6:=LocaleBase; jsr [a6-198];
  196.     pop a6;
  197. endp;                                                            # LOCALEPRIVATE5
  198.  
  199. pattern localePrivate6 is
  200.     push a6;
  201.     a6:=LocaleBase; jsr [a6-204];
  202.     pop a6;
  203. endp;                                                            # LOCALEPRIVATE6
  204.  
  205. pattern localePrivate7 is
  206.     push a6;
  207.     a6:=LocaleBase; jsr [a6-210];
  208.     pop a6;
  209. endp;                                                            # LOCALEPRIVATE7
  210.  
  211. pattern localePrivate8 is
  212.     push a6;
  213.     a6:=LocaleBase; jsr [a6-216];
  214.     pop a6;
  215. endp;                                                            # LOCALEPRIVATE8
  216.  
  217.